﻿Imports LogicaAT.SIREOS
Imports ServiciosAT

Namespace SIREOS

    Public Class CtEquipo

        Function buscarSerieEquipo(oEquipoBE As SireosWSEquipo.Equipo) As SireosWSEquipo.Equipo
            Dim oEquipoWS As New EquipoWSR
            Return oEquipoWS.buscarSerieEquipo(oEquipoBE)
        End Function

        Function buscarPartNumber(oModeloBE As SireosWSEquipo.Modelo) As SireosWSEquipo.Modelo
            Dim oModeloWS As New EquipoWSR
            Return oModeloWS.buscarPartNumberEquipo(oModeloBE)
        End Function

        Function listarMarcas(oTipoEquipo As SireosWSEquipo.TipoEquipo) As DataTable
            Dim oEquipoWS As New EquipoWSR
            Return oEquipoWS.listarMarcas(oTipoEquipo)
        End Function

        Function listarModelos(oModelo As SireosWSEquipo.Modelo) As DataTable
            Dim oEquipoWS As New EquipoWSR
            Return oEquipoWS.listarModelos(oModelo)
        End Function

        Function obtenerPartNumber(oModeloBE As SireosWSEquipo.Modelo) As String
            Dim oModeloWS As New EquipoWSR
            Return oModeloWS.obtenerPartNumberEquipo(oModeloBE)
        End Function

        Function registrarEquipo(oEquipo As SireosWSEquipo.Equipo) As Integer
            Dim oEquipoWS As New EquipoWSR
            Return oEquipoWS.registrarEquipo(oEquipo)
        End Function

        Function modificarEquipo(oEquipo As SireosWSEquipo.Equipo) As SireosWSEquipo.MensajeInformativo
            Dim oEquipoWS As New EquipoWSR
            Return oEquipoWS.modificarEquipo(oEquipo)
        End Function

        Function validarEquipoOrden(oEquipo As SireosWSEquipo.Equipo) As Integer
            Dim oEquipoWSR As New EquipoWSR
            Return oEquipoWSR.validarEquipoOrden(oEquipo)
        End Function

    End Class

End Namespace